<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>3</cardCount>
<cardID>5001</cardID>
<listID>2213</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>-------------<< MacBASIC ver1.0 ( Turned BASIC to HYPERTALK ) >>1992.10.11ﾃ①created by ﾃｩOﾃｨdﾃｯﾃｪﾃｮﾂｸ (PileDriver Project)Takemi Mishige --All rights reserved.************************************************************on InitContainerglobal staticCount,inlineCount,MsgSwitch,bgColor,fColor,ﾂｬinputSwitch,screenLockCheck,indentCount,CommandTable,ﾂｬprogramList,RgnTable,preRight,preBottom,polygonTable,ﾂｬStLnNuCh,windowTable,startLnNum,RgnTable,colorModeAlert,ﾂｬBackUpList,CopyList,EndMark,dataTable,dataCheckput empty into preBottomput 0 into staticCountput 1 into bgColor --put 0 into fColor --put 1 into startLnNumput empty into programList --put empty into CopyListput empty into BackUpListset the script of bg btn id 7 to emptyset the textFont of bg fld id 1 to Osakaset the textSize of bg fld id 1 to 14set the textHeight of bg fld id 1 to 16set the textStyle of bg fld id 1 to condenseput "OK" & return after bg fld "programFld"end InitContaineron SetWaitWindow --global waitleft,waittop,waitright,waitbottomput word 1 of SetWaitWindow() into waitleftput word 2 of SetWaitWindow() into waittopput word 3 of SetWaitWindow() into waitrightput word 4 of SetWaitWindow() into waitbottomend SetWaitWindowon CloseStack--MacBASICﾃｱ{ﾃｫﾃε邃｢ﾃ竏妥竕暗窶ｦﾃｯﾂｬﾃ竏づﾃﾃﾃ催ﾆ津ﾂ｢ﾃﾃ暗竏ﾃﾂｴﾃﾃεｨﾃ ﾃｳﾃｹﾃ⑨ﾃ⑨ﾃ⑨put empty into cd fld id 10 of cd id 3011hide cd fld id 10 of cd id 3011put empty into bg fld "programFld" of cd id 3011--show cd fld "titleCD" of cd "cover"--show cd btn "mask" of cd "cover"--compactBMpass closeStackend CloseStack----------------------------------------------------------on arrowKey whichkeyif whichkey is "left" then exit arrowKeyif whichkey is "up" then exit arrowKeyif whichkey is "right" then exit arrowKeyif whichkey is "down" then exit arrowKeyend arrowKey---------------------------------------------------------------------------------------------on ClsFunctionLock screenpush cardbackColor 0,0,2,1,0,1go nextpop cardunLock screenend ClsFunctionon CircleComglobal currentLine,MsgSwitch,bgColor,fColor,screenLockCheck,forNo,Compile11,ﾂｬwordCounter,circleCount,programList,globalData,Compile,LineNumber,ﾂｬLoopCheck,HandlerName,RgnTable,GotoLoopSwitch,startLnNum,ﾂｬwindowTable,ColorModeif MsgSwitch is 1 thenput (startLnNum+LineNumber)*16 into topP --picture "Circle",resource,rect,falseset the rect of window "Circle" to "250,topP,495,topP+20"show window "Circle"put "Circle" & "," after windowTable --end ifend CircleCom------------------------------------------------------------------------------------------------------------on RemComsend SubRemCom to bg btn id 9end RemCom-----------------------------------------------------------------------------------------------function GoToCom contextend GoToComon MSGComglobal MsgSwitchif MsgSwitch is 1 thenput 0 into MsgSwitch --elseput 1 into MsgSwitch --end ifput return & "OK" & return after bg fld id 1put return after bg fld id 1select last line of bg fld id 1domenu Helveticadomenu 14domenu "ﾃｩﾃｶﾃ､窶佚ｧLﾃ竕 "exit to HyperCardend MSGComon IndentLineglobal inlineCount,indentcount,programList,fline,NumLines,windowTableput LineIndent( programList) into programListput programList into bg fld "programFld"if the number of words of last line of bg fld id 1 < 1or last word of bg fld id 1 <> "RUN" thenput "RUN" after bg fld id 1elseput "RUN" after bg fld "programFld"end ifput 1 into inlineCount --end IndentLinefunction LINEINDENT programListglobal NumLinesput the number of lines of programList into NumLinesput SortLN(programList,NumLines ) into programList---put empty into tableput 1 into cntrepeat with T = 1 to NumLinesif word 2 of line T of programList is "FOR" thenput RelocateQCE(line T of programList,1,wq) into programLineput (T+1) & "," & word 3 of programLine & "," & return after tablerepeat with S = T+1 to NumLinesif word 2 of line S of programList is "NEXT" thenput RelocateQCE(line S of programList,1,wq) into programLineput item 2 of line cnt of table into moniput word 3 of programLine into moni2if moni2 is moni thenput (S-1) & "," after last line of tableadd 1 to cntexit repeatend ifend ifend repeatend ifend repeatrepeat with V = 1 to the number of lines of tablerepeat with p = item 1 of line V of table to item 3 of line V of tableput " " after word 1 of line p of programListend repeatend repeatreturn programListend LINEINDENT</script>
